;SEE IF PAGESTREAM3 AND SOFTLOGIK ARE ASSIGNED AND EVERYTHING EXISTS
(set PGSdest (getassign "PageStream3" "a"))
(set SLdest (getassign "SoftLogik" "a"))
(if (OR (= PGSdest "") (= SLdest ""))
(abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3 before applying this update patch.")
)
(set @default-dest PGSdest)
(if (<> (exists "PageStream3:PageStream3") 1)
(abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3 before applying this update patch.")
)
(if (<> (exists "SoftLogik:Libs") 2)
(abort "The SoftLogik:Libs directory is missing. You must properly install PageStream3 before applying this update patch.")
)
(if (<> (exists "SoftLogik:Engines") 2)
(abort "The SoftLogik:Engines directory is missing. You must properly install PageStream3 before applying this update patch.")
)
(message "\n\nThis will update your hard drive installation of PageStream 3.0b. This tuneup should only be used if you had PageStream 3.0a and then upgraded to 3.0b via the first version of the 3.0b patch.\n\nYour original PageStream3 disks will not be modified by this update.")
;COPY THE LHEX PROGRAM TO RAM:
(copyfiles
(source "PageStream3Disk1:lhex")
(dest "ram:")
(nogauge)
)
;UPDATE LIBS
(working "Patching Library...")
(run "ram:lhex >NIL: <NIL: -qfw=ram: x LibsPatch.lha")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
(delete "Engines.LHA" (safe))
;INSTALL FONTLISTv2ANALYZER
(working "Installing FONTLISTv2Analyzer...")
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x FLister.LHA")
(delete "FLister.LHA" (safe))
;REMOVE THE LHARC PROGRAM
(delete "ram:lhex" (safe))
(delete "spatch" (safe))
(delete "Install-PageStream3.0b.info" (safe))
(message "You MUST update any font path containing a PostScript font. Run PageStream3, choose Settings/Fonts, select the StudioFonts path and click on the Update gadget. Repeat for the SerialsFonts path, IQEfonts path and any other PostScript font paths you may have.\n\nThis is important!\n\nNot doing this will lead to problems.")